1 REM ********************************* 2 REM * * 3 REM * 'HEAD TO HEAD' (C) 1985 * 4 REM * BY DOUG SMOAK * 5 REM * 303 HEYWARD ST. * 6 REM * COLUMBIA, S.C. * 7 REM * 29201 * 8 REM * * 9 REM ********************************* 10 DIMA(3),X(4),C(4) 20 A(0)=2:A(2)=-80:A(1)=-2:A(3)=80 30 X(0)=0:X(1)=-40:X(2)=40:X(3)=-1:X(4)=1 40 C(0)=0:C(1)=30:C(2)=22:C(3)=60:C(4)=62 50 BO=53280:BG=BO+1:SC=1024:WL=160:HL=46 60 SID=54272:CD=SID 70 DN$="" 80 DS$=DN$+"" 90 GOSUB880:POKEBO,0:POKEBG,0:POKE646,14 100 GOSUB1600 110 FORI=49152TO49152+213 120 READA:POKEI,A:NEXT 130 GOSUB1130 140 PRINT"[147][155]"DN$"BONUS FEATURE Y/N[146]"; 150 INPUTBS$ 160 PRINT"[147]"DN$"HOW MANY ROUNDS"; 170 INPUTRD$:RD=VAL(RD$) 180 IFRD=0THENRD=1 190 : 200 REM ** MAIN LOOP ** 210 : 220 FORII=1TORD 230 POKEBO,0:POKEBG,0 240 M1=1905:M2=1925:C1=30:C2=C1:TP=0 250 POKE198,0 260 PRINT"[147]"DN$"WHAT NUMBER MAZE"; 270 INPUTMZ$:MZ=VAL(MZ$):MZ$="" 280 PRINT"[147]":IFMZ=0THENMZ=RND(1) 290 FORI=0TO22 300 PRINT"  [146]"; 310 NEXT 320 A9=SC+81:GOSUB670:MZ=0 330 IFBS$<>"Y"THEN390 340 X=INT(RND(1)*5)+2 350 Y=INT(RND(1)*8)+2 360 FORI=SC+X*40+YTOSC+X*40+19 370 IFPEEK(I)=160THENPOKEI,86:POKEI+20,86:POKEI+CD,7:POKEI+20+CD,7:GOTO390 380 NEXT 390 TI$="000000" 400 POKEM1,C1:POKEM2,C2 410 O1=M1:O2=M2 420 POKE49301,255:SYS49223 430 PRINT"[158]ROUND"IITAB(20)"SEC"10-VAL(RIGHT$(TI$,2))"[157] " 440 IFVAL(RIGHT$(TI$,2))<10THEN430 450 SYS49152:J1=PEEK(253) 460 M1=O1+X(J1):W1=PEEK(M1) 470 IFW1=C1ORW1=WLTHEN520 480 IFW1=HLTHENTP=TP+1:P1=P1+10:POKEM1+20,32 490 IFW1=86THENP1=P1+500:POKEM1+20,32 500 POKEO1,32:POKEM1,C(J1) 510 O1=M1:C1=C(J1):GOTO530 520 M1=O1 530 SYS49152:J2=PEEK(254) 540 M2=O2+X(J2):W2=PEEK(M2) 550 IFW2=C2ORW2=WLTHEN600 560 IFW2=HLTHENTP=TP+1:P2=P2+10:POKEM2-20,32 570 IFW2=86THENP2=P2+500:POKEM2-20,32 580 POKEO2,32:POKEM2,C(J2) 590 O2=M2:C2=C(J2):GOTO610 600 M2=O2 610 PRINT"[158]SCORE"P1TAB(20)"SCORE"P2 620 IFTP>=196THENSYS49287:GOSUB880:GOSUB1090:NEXTII:GOTO920 630 GOTO450 640 : 650 REM *** CREATE PLAYFIELD *** 660 : 670 ZM=RND(-MZ) 680 J=INT(RND(1)*4):X3=J 690 B=A9+A(J) 700 IFPEEK(B)=WLTHENGOSUB800:GOTO680 710 J=(J+1)*-(J<3):IFJ<>X3THEN690 720 J=PEEK(A9) 730 POKEA9,HL:POKEA9+CD,1 740 POKEA9+20,HL:POKEA9+CD+20,1 750 IFJ<4THENA9=A9-A(J):GOTO680 760 RETURN 770 : 780 REM *** PLAYFIELD SUB *** 790 : 800 POKEB,J:POKEA9+A(J)/2,HL 810 POKEA9+CD+A(J)/2,1 820 POKEB+20,J:POKE(A9+A(J)/2)+20,HL 830 POKE20+A9+CD+A(J)/2,1:A9=B 840 RETURN 850 : 860 REM ** SETUP SOUND CHIP ** 870 : 880 FORI=0TO24:POKESI+I,0:NEXT:POKESI+24,15:POKESI+6,240:RETURN 890 : 900 REM *** GAME OVER *** 910 : 920 IFP1>P2THENPL$="PLAYER ONE, THAT'S YOU ON THE LEFT!":GOTO950 930 IFP2>P1THENPL$="PLAYER TWO, THAT'S YOU ON THE RIGHT!":GOTO950 940 IFP2=P1THENPL$=" NOBODY, IT'S A TIE!!!??" 950 PRINT"[147][158]THE FINAL SCORES ARE:" 960 PRINT"PLAYER ONE:"P1 970 PRINT"[158]PLAYER TWO:"P2 980 PRINT"[158]THE WINNER IS:" 990 PRINT""PL$ 1000 PRINT"[158] PLAY AGAIN Y/N[146] ?"; 1010 FORI=1TO1000:NEXT:POKE198,0 1020 GETA$ 1030 IFA$="N"THENPRINT"[147]";:END 1040 IFA$<>"Y"THEN1020 1050 P1=0:P2=0:RD=0:II=0:GOTO140 1060 : 1070 REM *** CHECK FOR END *** 1080 : 1090 IFRD>0ANDII=RDTHENRETURN 1100 : 1110 REM *** WAIT FOR INPUT *** 1120 : 1130 PRINT"[129]PRESS RETURN TO CONTINUE"; 1140 CL=RND(0)*15+1 1150 IFRD=0THENPOKE646,CL:GOSUB1600:PRINTDS$"BY DOUG SMOAK " 1160 IF(PEEK(197)<>1)THEN1140 1170 POKE198,0:RETURN 1180 : 1190 REM ** M.L. J-STICK DATA ** 1200 : 1210 DATA169,0,133,254,173,0,220 1220 DATA74,176,4,160,1,132,254,74 1230 DATA176,4,160,2,132,254,74,176 1240 DATA4,160,3,132,254,74,176 1250 DATA4,160,4,132,254,169,0,133 1260 DATA253,173,1,220,74,176,4 1270 DATA160,1,132,253,74,176,4 1280 DATA160,2,132,253,74,176,4,160 1290 DATA3,132,253,74,176,4,160 1300 DATA4,132,253,96 1310 : 1320 REM ** INTERRUPT MUSIC DATA ** 1330 : 1340 DATA120,169,84,141,20,3,169 1350 DATA192,141,21,3,88,96,173,148 1360 DATA192,208,40,174,149,192 1370 DATA232,224,64,208,2,162,0,189 1380 DATA150,192,141,0,212,232,189 1390 DATA150,192,141,1,212,232,189 1400 DATA150,192,141,4,212,232,189 1410 DATA150,192,141,148,192,142,149 1420 DATA192,206,148,192,76,49,234 1430 DATA120,169,49,141,20,3,169 1440 DATA234,141,21,3,88,96 1450 DATA 0,255 1460 : 1470 REM ** MUSIC NOTES DATA ** 1480 : 1490 DATA 96,22,17,15,195,16,17,15 1500 DATA 24,14,17,15,195,16,17,15 1510 DATA 96,22,17,15,195,16,17,15 1520 DATA 24,14,17,15,195,16,17,15 1530 DATA 239,14,17,15,195,16,17,15 1540 DATA 239,14,17,15,195,16,17,15 1550 DATA 239,14,17,15,195,16,17,15 1560 DATA 209,18,17,15,31,21,17,15 1570 : 1580 REM *** TITLE PAGE *** 1590 : 1600 PRINT" "; 1610 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146] "; 1620 PRINT" [221][146] [221][146] "; 1630 PRINT" [221][146]  [146]  [146]  [146] [169] [223][146]  [223][146] [221][146] "; 1640 PRINT" [221][146]  [146]  [146]  [146]  [146]  [146]  [146]  [146] [221][146] "; 1650 PRINT" [221][146]  [162] [146]  [162][146]  [162] [146]  [146]  [146] [221][146] "; 1660 PRINT" [221][146]  [146]  [146]  [146][162][162]  [146]  [146]  [146][162] [146] [221][146] "; 1670 PRINT" [221][146] [221][146] "; 1680 PRINT" [221][146]  [146]  [146] [221][146] "; 1690 PRINT" [221][146]  [146]  [146]  [146] [221][146] "; 1700 PRINT" [221][146]  [146]  [146]  [146] [221][146] "; 1710 PRINT" [221][146]  [146]  [146][162] [146] [221][146] "; 1720 PRINT" [221][146] [221][146] "; 1730 PRINT" [221][146]  [146]  [146]  [146] [169] [223][146]  [223][146] [221][146] "; 1740 PRINT" [221][146]  [146]  [146]  [146]  [146]  [146]  [146]  [146] [221][146] "; 1750 PRINT" [221][146]  [162] [146]  [162][146]  [162] [146]  [146]  [146] [221][146] "; 1760 PRINT" [221][146]  [146]  [146]  [146][162][162]  [146]  [146]  [146][162] [146] [221][146] "; 1770 PRINT" [221][146] [221][146] "; 1780 PRINT" [221][146] BY DOUG SMOAK [221][146] "; 1790 PRINT" [221][146] [221][146] "; 1800 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146] "; 1810 PRINT" "; 1820 PRINT" "; 1830 PRINT" "; 1840 POKE646,RND(0)*15+1 1850 RETURN